home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / nu80 / cpage866.ps! / CPAGE866.PS
Text File  |  1994-04-23  |  1KB  |  30 lines
  1. /reencodedict 16 dict def
  2. /ReEncodeFont {
  3. reencodedict begin /newcodes exch def /newfontname exch def /basefontname exch def
  4. /basefontdict basefontname findfont def
  5. /newfont basefontdict maxlength dict def
  6. basefontdict { exch dup /FID ne { dup /Encoding eq { exch dup length array copy newfont 3 1 roll put }
  7. { exch newfont 3 1 roll put } ifelse } { pop pop } ifelse } forall
  8. newfont /FontName newfontname put
  9. 128 1 255 { newfont /Encoding get exch /.notdef put } for
  10. newcodes aload pop newcodes length 2 idiv { newfont /Encoding get 3 1 roll put } repeat
  11. newfontname newfont definefont pop
  12. end
  13. } def
  14.  
  15. /CodePage866 [ 7/bullet 16/grave 17/acute 18/circumflex 19/tilde 20/macron
  16. 21/breve 22/dotaccent 23/dieresis 24/ring 25/cedilla 26/hungarumlat
  17. 27/ogonek 28/caron
  18.  
  19. 179/bar 180/plus 181/plus 182/plus 183/plus 184/plus 185/plus 186/bar 187/plus
  20. 188/plus 189/plus 190/plus 191/plus
  21.  
  22. 192/plus 193/plus 194/plus 195/plus 196/hyphen 197/plus 198/plus 199/plus 
  23. 200/plus 201/plus 202/plus 203/plus 204/plus 205/hyphen 206/plus 207/plus
  24.  
  25. 208/plus 209/plus 210/plus 211/plus 212/plus 213/plus 214/plus 215/plus
  26. 216/plus 217/plus 218/plus
  27.  
  28. 248/ring 249/periodcentered 250/periodcentered 253/currency
  29. ] def
  30.